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HARDCOPY (A QL Utility) 
Al Feng 


One of the first things you may have noticed missing in 
SuperBASIC is LLIST. THERE is a way though. For example, you can 
OFEN a channel for your printer, and LIST to that channel (OPEN 
#5,seri: LIST #5). Or, you can utilize either the COPY or COPT_N 
command (COPY mdvX filename TO seri). Or you can create a 
hardcopy of a SuperBASIC program listing by creating an 
nnnnn, imp file from your 'nnnnn' program (COPY mdvi filename TO 
mdvi filename imp), importing into QUILL (by line), and then 
printing your filename, doc. 


This program displays a directory from which a "hardcopy" can 
be generated from either a SuperBASIC program listing or any 
ASCII file which you may have. The program utilizes the COFY N 
command of SuperBASIC, and should be a convenient way for you to 
LLIST your programs by saving you the effort of typing in 
SuperBASIC commands, and/or bypassing the creation of an import 
file, and use of QUILL. A maximum of 76 files are displayed by 
the directory (not as many as you may have on a floppy, but many 
mare than you can fit on a microdrive cassettte). 


* PROGRAM NOTES * 


For people who use disk drives, simply change mdv to flp in 
the following lines: 180, 190, 200, 210, 240, 370, and 520. 


Lines 120 to 160: The screen is set up for a monitor. It is 
set up to accomondate an 80 column composite monitor (which I 
use), and may be smaller than your display. Of course, you can 
eliminate or change the parameters of lines 120 thru 160 to suit 
your own taste. Individuals using the television mode, and mode 
8 will have to make adjustments to the print lines. 


Line 170: Sets the printer parameters (you should not need to 
change this line). 


Lines 190 to 360: Builds the screen display. Lines 200 and 260 
determine the number of available files. If none of your files 
have names longer than 8 characters, you can change the second 
number in line 200 to a lesser number (e.g., 11). 


Line 370: Displays the "help" window. 

Line 380: Screen "logo". 

Line 390 to 460: Requests function (QUIT, CHANGE DRIVE, 
PRINT). 

Line 470 to 480: Exit/clear program. 

Line 490 to 510: "Mis-key" trap. 

Line S20: Print (COPY ND) command. 


* PROGRAM LISTING * 


100 REMark HARDCOFY 

110 REMark by Alphonso Feng, OZ August 1987 

120 OPEN S$10,5CR 460X14a3OXO: PAPER 410,7: INE #10,4: BORDER 
#10,1,7 

1320 OFEN #10,SCR_S1i2X16a0X240:PAPER 411,7: INE #11,4: BORDER 
#11,1,7 

140 OPEN 4$12,S8CR SOX240aO0XO: PAPER #12, 7 

150 OPEN $S1Z,5CR SOX240a482XO: APER 413,7 

160 MODE 4:WINDOW 455, 226, 30, 14:FAFER 7: BORDER 1,4 

170 dev$="serl":drives$="1"s flag=O:pset=0: skipc=0O;: speed=9600 
160 CLS: INE H2,0:PRINT #2, \" PRINT from mdv"sdriveé3;" "s INE 
42,2 

190 DIM dir$(76,15):DELETE mdvi_dirf 

200 OPEN NEW #46,mdvi_dir¢ 

210 DIR #6, "mdv" & drive$ & " " 

220 PRINT #6 

230 CLOSE #6 

240 OFEN IN #7, mdvi dirf 

250 FOR c=0 TO 76 

260 INFUT #7,diré(c) 

270 IF dirt$(c)m'-—-—-—-— " THEN EXIT c 

280 END FOR c 

290 CLOSE #7 

SOO cmg] 

310 AT 1,19: PRINT dir$(0),,,,:PRINT dirii) 

B20 AT 3,0:CLS 2 

330 FOR n=1 TO c-i 

S40 PRINT "C"; CHR#(n+48) ! 

350 PRINT "J "s CHRS®(n+1), 

240 END FOR n 


370 CLS #10:PRINT #10\," [0] mdv2 , C.J] mdvi_, [/1 QUIT, « 
PREFIX > TO ";:UNDER #10, 1;:PRINT #10\ “PRINT"s:UNDER #10, 0 
380 INK 4: AT 1, 35:PRINT " -— HARDCOPY -~ "s: INK O 


390 REPeat key 

490 hitzCODE(CINEKEYS$) 

410 IF hit>45 AND hit<128 THEN EXIT key 

420 END REFeat key 

430 hitzhit-48 

440 IF hitz-2 THEN 

450 IF drivet$21 THEN drivet=drive$-1:G0 TO 180 

460 END IF 

470 IF hitz-1 THEN CLS: PRINT\\\,,, "READY TO CLEAR 
PROGRAM"\,,," HIT <ANYKEY? TO EXIT"\\\\,,, "COTRL+SPACE] FOR 
BASIC": PAUSE: NEW 

430 IF NOT hit THEN 

490 drivet=driveg+1 

soo GO TO i180 

alo ELSE 

220 IF hite THEN COPY N "mdv" & drives & "OU OR dir$ihit+i) TO 
dev 

2350 GO TO 320 

S40 END IF 


